/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / sun-curs.elc.z / sun-curs.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 61 74 20 4d |ggum.no |on Sat M|
|00000030| 61 79 20 31 38 20 31 36 | 3a 34 33 3a 33 30 20 31 |ay 18 16|:43:30 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 73 75 6e 2d 63 75 |19.0/lis|p/sun-cu|
|00000070| 72 73 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |rs.el.;;|; emacs |
|00000080| 76 65 72 73 69 6f 6e 20 | 31 39 2e 33 30 2e 39 39 |version |19.30.99|
|00000090| 2e 31 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |.1..;;; |bytecomp|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 46 53 46 20 32 2e 31 | version| FSF 2.1|
|000000b0| 30 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |0.;;; op|timizati|
|000000c0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000d0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000e0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|000000f0| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000100| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000110| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000120| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000130| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000140| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000150| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n)..    |
|00000160| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|00000180| 2e 32 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |.29"))).|    (err|
|00000190| 6f 72 20 22 60 73 75 6e | 2d 63 75 72 73 2e 65 6c |or "`sun|-curs.el|
|000001a0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 2e 32 39 20 6f |or Emacs| 19.29 o|
|000001c0| 72 20 6c 61 74 65 72 22 | 29 29 0a 0a 0a 28 72 65 |r later"|))...(re|
|000001d0| 71 75 69 72 65 20 28 71 | 75 6f 74 65 20 63 6c 29 |quire (q|uote cl)|
|000001e0| 29 0a 23 40 32 33 20 4c | 69 73 74 20 6f 66 20 6b |).#@23 L|ist of k|
|000001f0| 6e 6f 77 6e 20 63 75 72 | 73 6f 72 73 1f 0a 28 64 |nown cur|sors..(d|
|00000200| 65 66 76 61 72 20 73 63 | 3a 3a 63 75 72 73 6f 72 |efvar sc|::cursor|
|00000210| 73 20 6e 69 6c 20 28 23 | 24 20 2e 20 34 38 37 29 |s nil (#|$ . 487)|
|00000220| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 65 66 |).(defal|ias 'def|
|00000230| 63 75 72 73 6f 72 20 27 | 28 6d 61 63 72 6f 20 2e |cursor '|(macro .|
|00000240| 20 23 5b 28 6e 61 6d 65 | 20 78 20 79 20 73 74 72 | #[(name| x y str|
|00000250| 69 6e 67 29 20 22 08 09 | 3e 84 5c 6e 00 08 09 42 |ing) "..|>.\n...B|
|00000260| 11 c2 08 c3 5c 66 0d 0e | 06 46 45 87 22 20 5b 6e |....\f..|.FE." [n|
|00000270| 61 6d 65 20 73 63 3a 3a | 63 75 72 73 6f 72 73 20 |ame sc::|cursors |
|00000280| 64 65 66 63 6f 6e 73 74 | 20 76 65 63 74 6f 72 20 |defconst| vector |
|00000290| 78 20 79 20 73 74 72 69 | 6e 67 5d 20 36 5d 29 29 |x y stri|ng] 6]))|
|000002a0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|000002b0| c3 b0 01 23 14 c4 0d 42 | 15 c0 c2 c6 c7 b0 01 23 |...#...B|.......#|
|000002c0| 16 08 c8 0d 42 15 c0 c6 | 89 c9 b0 01 23 16 5c 6e |....B...|....#.\n|
|000002d0| ca 0d 42 15 c0 c6 89 cb | cc cd ce 52 23 16 0f cf |..B.....|...R#...|
|000002e0| 0d 42 15 c0 87 22 20 5b | 76 65 63 74 6f 72 20 31 |.B..." [|vector 1|
|000002f0| 35 20 30 20 28 30 20 31 | 20 30 20 33 20 30 20 37 |5 0 (0 1| 0 3 0 7|
|00000300| 20 30 20 31 35 20 30 20 | 33 31 20 30 20 36 33 20 | 0 15 0 |31 0 63 |
|00000310| 30 20 31 32 37 20 30 20 | 31 35 20 30 20 32 37 20 |0 127 0 |15 0 27 |
|00000320| 30 20 32 35 20 30 20 34 | 38 20 30 20 34 38 20 30 |0 25 0 4|8 0 48 0|
|00000330| 20 39 36 20 30 20 39 36 | 20 30 20 31 39 32 20 30 | 96 0 96| 0 192 0|
|00000340| 20 31 39 32 29 20 73 63 | 3a 72 69 67 68 74 2d 61 | 192) sc|:right-a|
|00000350| 72 72 6f 77 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |rrow cur|rent-loa|
|00000360| 64 2d 6c 69 73 74 20 38 | 20 28 31 20 30 20 33 20 |d-list 8| (1 0 3 |
|00000370| 30 20 37 20 30 20 31 35 | 20 30 20 33 31 20 30 20 |0 7 0 15| 0 31 0 |
|00000380| 36 33 20 32 35 35 20 31 | 32 37 20 32 35 35 20 32 |63 255 1|27 255 2|
|00000390| 35 35 20 32 35 35 20 32 | 35 35 20 32 35 35 20 31 |55 255 2|55 255 1|
|000003a0| 32 37 20 32 35 35 20 36 | 33 20 32 35 35 20 33 31 |27 255 6|3 255 31|
|000003b0| 20 30 20 31 35 20 30 20 | 37 20 30 20 33 20 30 20 | 0 15 0 |7 0 3 0 |
|000003c0| 31 20 30 29 20 73 63 3a | 66 61 74 2d 6c 65 66 74 |1 0) sc:|fat-left|
|000003d0| 2d 61 72 72 6f 77 20 28 | 31 35 20 32 35 32 20 38 |-arrow (|15 252 8|
|000003e0| 20 34 20 38 20 34 20 38 | 20 34 20 38 20 34 20 38 | 4 8 4 8| 4 8 4 8|
|000003f0| 20 34 20 38 20 34 20 38 | 20 34 20 38 20 31 33 32 | 4 8 4 8| 4 8 132|
|00000400| 20 38 20 34 20 38 20 34 | 20 38 20 34 20 38 20 34 | 8 4 8 4| 8 4 8 4|
|00000410| 20 38 20 34 20 38 20 34 | 20 31 35 20 32 35 32 29 | 8 4 8 4| 15 252)|
|00000420| 20 73 63 3a 62 6f 78 20 | 22 7f fe 40 02 20 5c 66 | sc:box |"..@. \f|
|00000430| 1a 38 22 20 22 0f f0 07 | e0 03 c0 01 80 22 20 22 |.8" "...|....." "|
|00000440| 01 80 02 40 05 20 08 10 | 22 20 22 11 88 23 c4 47 |...@. ..|" "..#.G|
|00000450| e2 7f fe 22 20 73 63 3a | 68 6f 75 72 67 6c 61 73 |..." sc:|hourglas|
|00000460| 73 5d 20 37 29 0a 23 40 | 31 36 38 20 43 68 61 6e |s] 7).#@|168 Chan|
|00000470| 67 65 20 74 68 65 20 53 | 75 6e 20 6d 6f 75 73 65 |ge the S|un mouse|
|00000480| 20 63 75 72 73 6f 72 20 | 74 6f 20 49 43 4f 4e 2e | cursor |to ICON.|
|00000490| 0a 49 66 20 49 43 4f 4e | 20 69 73 20 6e 69 6c 2c |.If ICON| is nil,|
|000004a0| 20 73 77 69 74 63 68 20 | 74 6f 20 74 68 65 20 73 | switch |to the s|
|000004b0| 79 73 74 65 6d 20 64 65 | 66 61 75 6c 74 20 63 75 |ystem de|fault cu|
|000004c0| 72 73 6f 72 2c 0a 4f 74 | 68 65 72 77 69 73 65 2c |rsor,.Ot|herwise,|
|000004d0| 20 49 43 4f 4e 20 73 68 | 6f 75 6c 64 20 62 65 20 | ICON sh|ould be |
|000004e0| 61 20 76 65 63 74 6f 72 | 20 6f 72 20 74 68 65 20 |a vector| or the |
|000004f0| 6e 61 6d 65 20 6f 66 20 | 61 20 76 65 63 74 6f 72 |name of |a vector|
|00000500| 20 6f 66 20 5b 78 20 79 | 20 33 32 2d 63 68 61 72 | of [x y| 32-char|
|00000510| 73 5d 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |s]..(def|alias 's|
|00000520| 63 3a 73 65 74 2d 63 75 | 72 73 6f 72 20 23 5b 28 |c:set-cu|rsor #[(|
|00000530| 69 63 6f 6e 29 20 22 08 | 39 83 08 00 08 4a 10 c1 |icon) ".|9....J..|
|00000540| 08 21 87 22 20 5b 69 63 | 6f 6e 20 73 75 6e 2d 63 |.!." [ic|on sun-c|
|00000550| 68 61 6e 67 65 2d 63 75 | 72 73 6f 72 2d 69 63 6f |hange-cu|rsor-ico|
|00000560| 6e 5d 20 32 20 28 23 24 | 20 2e 20 31 31 33 32 29 |n] 2 (#$| . 1132)|
|00000570| 20 22 58 49 63 6f 6e 20 | 4e 61 6d 65 3a 20 22 5d | "XIcon |Name: "]|
|00000580| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000590| 21 88 c2 c3 21 88 c4 c3 | c5 5c 22 88 c3 0e 06 9e |!...!...|.\".....|
|000005a0| 84 1a 00 c7 0e 06 42 16 | 06 c5 87 22 20 5b 6d 61 |......B.|..." [ma|
|000005b0| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|000005c0| 65 20 2a 65 64 69 74 2d | 69 63 6f 6e 2a 20 6d 61 |e *edit-|icon* ma|
|000005d0| 6b 65 2d 76 61 72 69 61 | 62 6c 65 2d 62 75 66 66 |ke-varia|ble-buff|
|000005e0| 65 72 2d 6c 6f 63 61 6c | 20 69 63 6f 6e 2d 65 64 |er-local| icon-ed|
|000005f0| 69 74 20 73 65 74 2d 64 | 65 66 61 75 6c 74 20 6e |it set-d|efault n|
|00000600| 69 6c 20 6d 69 6e 6f 72 | 2d 6d 6f 64 65 2d 61 6c |il minor|-mode-al|
|00000610| 69 73 74 20 28 69 63 6f | 6e 2d 65 64 69 74 20 22 |ist (ico|n-edit "|
|00000620| 20 49 63 6f 6e 45 64 69 | 74 22 29 5d 20 33 29 0a | IconEdi|t")] 3).|
|00000630| 23 40 34 35 20 63 6f 6e | 76 65 72 74 20 69 63 6f |#@45 con|vert ico|
|00000640| 6e 20 74 6f 20 72 65 63 | 74 61 6e 67 6c 65 2c 20 |n to rec|tangle, |
|00000650| 65 64 69 74 2c 20 61 6e | 64 20 72 65 70 61 63 6b |edit, an|d repack|
|00000660| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 63 3a |..(defal|ias 'sc:|
|00000670| 65 64 69 74 2d 63 75 72 | 73 6f 72 20 23 5b 28 69 |edit-cur|sor #[(i|
|00000680| 63 6f 6e 29 20 22 08 84 | 0b 00 c1 c2 20 c3 89 23 |con) "..|.... ..#|
|00000690| 10 08 39 83 13 00 08 4a | 10 c4 c5 21 83 1d 00 c6 |..9....J|...!....|
|000006a0| c5 21 88 c7 c5 21 88 c8 | c9 ca 5c 22 88 c8 cb cc |.!...!..|..\"....|
|000006b0| 5c 22 88 c8 cd ce 5c 22 | 88 c8 cf d0 5c 22 88 d1 |\"....\"|....\"..|
|000006c0| 08 21 88 d2 20 88 d3 89 | 16 14 87 22 20 5b 69 63 |.!.. ...|..." [ic|
|000006d0| 6f 6e 20 73 63 3a 3a 6d | 65 6e 75 2d 63 68 6f 6f |on sc::m|enu-choo|
|000006e0| 73 65 2d 63 75 72 73 6f | 72 20 73 65 6c 65 63 74 |se-curso|r select|
|000006f0| 65 64 2d 77 69 6e 64 6f | 77 20 31 20 67 65 74 2d |ed-windo|w 1 get-|
|00000700| 62 75 66 66 65 72 20 22 | 69 63 6f 6e 2d 65 64 69 |buffer "|icon-edi|
|00000710| 74 22 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 20 73 |t" kill-|buffer s|
|00000720| 77 69 74 63 68 2d 74 6f | 2d 62 75 66 66 65 72 20 |witch-to|-buffer |
|00000730| 6c 6f 63 61 6c 2d 73 65 | 74 2d 6d 6f 75 73 65 20 |local-se|t-mouse |
|00000740| 28 74 65 78 74 20 72 69 | 67 68 74 29 20 73 63 3a |(text ri|ght) sc:|
|00000750| 3a 6d 65 6e 75 2d 66 75 | 6e 63 74 69 6f 6e 20 28 |:menu-fu|nction (|
|00000760| 74 65 78 74 20 6c 65 66 | 74 29 20 28 73 63 3a 3a |text lef|t) (sc::|
|00000770| 70 69 63 2d 69 6e 73 2d | 61 74 2d 6d 6f 75 73 65 |pic-ins-|at-mouse|
|00000780| 20 33 32 29 20 28 74 65 | 78 74 20 6d 69 64 64 6c | 32) (te|xt middl|
|00000790| 65 29 20 28 73 63 3a 3a | 70 69 63 2d 69 6e 73 2d |e) (sc::|pic-ins-|
|000007a0| 61 74 2d 6d 6f 75 73 65 | 20 36 34 29 20 28 74 65 |at-mouse| 64) (te|
|000007b0| 78 74 20 6c 65 66 74 20 | 6d 69 64 64 6c 65 29 20 |xt left |middle) |
|000007c0| 73 63 3a 3a 68 6f 74 73 | 70 6f 74 20 73 63 3a 3a |sc::hots|pot sc::|
|000007d0| 64 69 73 70 6c 61 79 2d | 69 63 6f 6e 20 70 69 63 |display-|icon pic|
|000007e0| 74 75 72 65 2d 6d 6f 64 | 65 20 74 20 69 63 6f 6e |ture-mod|e t icon|
|000007f0| 2d 65 64 69 74 5d 20 34 | 20 28 23 24 20 2e 20 31 |-edit] 4| (#$ . 1|
|00000800| 35 38 39 29 20 22 58 49 | 63 6f 6e 20 4e 61 6d 65 |589) "XI|con Name|
|00000810| 3a 20 22 5d 29 0a 23 40 | 33 39 20 50 69 63 74 75 |: "]).#@|39 Pictu|
|00000820| 72 65 20 69 6e 73 65 72 | 74 20 63 68 61 72 20 61 |re inser|t char a|
|00000830| 74 20 6d 6f 75 73 65 20 | 6c 6f 63 61 74 69 6f 6e |t mouse |location|
|00000840| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 63 3a |..(defal|ias 'sc:|
|00000850| 3a 70 69 63 2d 69 6e 73 | 2d 61 74 2d 6d 6f 75 73 |:pic-ins|-at-mous|
|00000860| 65 20 23 5b 28 63 68 61 | 72 29 20 22 c0 09 c2 0b |e #[(cha|r) "....|
|00000870| 5e c2 5c 66 5e 23 88 c5 | c2 69 5e 54 c6 5c 22 88 |^.\f^#..|.i^T.\".|
|00000880| c7 c8 21 88 0e 09 63 88 | ca 20 87 22 20 5b 6d 6f |..!...c.|. ." [mo|
|00000890| 75 73 65 2d 6d 6f 76 65 | 2d 70 6f 69 6e 74 20 2a |use-move|-point *|
|000008a0| 6d 6f 75 73 65 2d 77 69 | 6e 64 6f 77 2a 20 31 35 |mouse-wi|ndow* 15|
|000008b0| 20 2a 6d 6f 75 73 65 2d | 78 2a 20 2a 6d 6f 75 73 | *mouse-|x* *mous|
|000008c0| 65 2d 79 2a 20 6d 6f 76 | 65 2d 74 6f 2d 63 6f 6c |e-y* mov|e-to-col|
|000008d0| 75 6d 6e 20 74 20 64 65 | 6c 65 74 65 2d 63 68 61 |umn t de|lete-cha|
|000008e0| 72 20 2d 31 20 63 68 61 | 72 20 73 63 3a 3a 67 6f |r -1 cha|r sc::go|
|000008f0| 74 6f 2d 68 6f 74 73 70 | 6f 74 5d 20 35 20 28 23 |to-hotsp|ot] 5 (#|
|00000900| 24 20 2e 20 32 30 37 35 | 29 5d 29 0a 28 64 65 66 |$ . 2075|)]).(def|
|00000910| 61 6c 69 61 73 20 27 73 | 63 3a 3a 6d 65 6e 75 2d |alias 's|c::menu-|
|00000920| 66 75 6e 63 74 69 6f 6e | 20 23 5b 28 77 69 6e 64 |function| #[(wind|
|00000930| 6f 77 20 78 20 79 29 20 | 22 c0 09 5c 6e 54 0b 5c |ow x y) |"..\nT.\|
|00000940| 66 24 87 22 20 5b 73 75 | 6e 2d 6d 65 6e 75 2d 65 |f$." [su|n-menu-e|
|00000950| 76 61 6c 75 61 74 65 20 | 77 69 6e 64 6f 77 20 78 |valuate |window x|
|00000960| 20 79 20 73 63 3a 3a 6d | 65 6e 75 5d 20 35 5d 29 | y sc::m|enu] 5])|
|00000970| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 11 c1 |.(byte-c|ode "...|
|00000980| 5c 6e 42 12 c1 87 22 20 | 5b 5b 28 22 43 75 72 73 |\nB..." |[[("Curs|
|00000990| 6f 72 20 4d 65 6e 75 22 | 29 20 28 22 50 61 63 6b |or Menu"|) ("Pack|
|000009a0| 20 26 20 55 73 65 22 20 | 73 63 3a 3a 70 61 63 6b | & Use" |sc::pack|
|000009b0| 2d 62 75 66 66 65 72 2d | 74 6f 2d 63 75 72 73 6f |-buffer-|to-curso|
|000009c0| 72 29 20 28 22 50 61 63 | 6b 20 74 6f 20 49 63 6f |r) ("Pac|k to Ico|
|000009d0| 6e 22 20 73 63 3a 3a 70 | 61 63 6b 2d 62 75 66 66 |n" sc::p|ack-buff|
|000009e0| 65 72 2d 74 6f 2d 69 63 | 6f 6e 20 28 73 63 3a 3a |er-to-ic|on (sc::|
|000009f0| 6d 65 6e 75 2d 63 68 6f | 6f 73 65 2d 63 75 72 73 |menu-cho|ose-curs|
|00000a00| 6f 72 20 2a 6d 65 6e 75 | 2d 77 69 6e 64 6f 77 2a |or *menu|-window*|
|00000a10| 20 2a 6d 65 6e 75 2d 78 | 2a 20 2a 6d 65 6e 75 2d | *menu-x|* *menu-|
|00000a20| 79 2a 29 29 20 28 22 4e | 65 77 20 49 63 6f 6e 22 |y*)) ("N|ew Icon"|
|00000a30| 20 63 61 6c 6c 2d 69 6e | 74 65 72 61 63 74 69 76 | call-in|teractiv|
|00000a40| 65 6c 79 20 28 71 75 6f | 74 65 20 73 63 3a 3a 6d |ely (quo|te sc::m|
|00000a50| 61 6b 65 2d 63 75 72 73 | 6f 72 29 29 20 28 22 45 |ake-curs|or)) ("E|
|00000a60| 64 69 74 20 49 63 6f 6e | 22 20 73 63 3a 65 64 69 |dit Icon|" sc:edi|
|00000a70| 74 2d 63 75 72 73 6f 72 | 20 28 73 63 3a 3a 6d 65 |t-cursor| (sc::me|
|00000a80| 6e 75 2d 63 68 6f 6f 73 | 65 2d 63 75 72 73 6f 72 |nu-choos|e-cursor|
|00000a90| 20 2a 6d 65 6e 75 2d 77 | 69 6e 64 6f 77 2a 20 2a | *menu-w|indow* *|
|00000aa0| 6d 65 6e 75 2d 78 2a 20 | 2a 6d 65 6e 75 2d 79 2a |menu-x* |*menu-y*|
|00000ab0| 29 29 20 28 22 53 65 74 | 20 43 75 72 73 6f 72 22 |)) ("Set| Cursor"|
|00000ac0| 20 73 63 3a 73 65 74 2d | 63 75 72 73 6f 72 20 28 | sc:set-|cursor (|
|00000ad0| 73 63 3a 3a 6d 65 6e 75 | 2d 63 68 6f 6f 73 65 2d |sc::menu|-choose-|
|00000ae0| 63 75 72 73 6f 72 20 2a | 6d 65 6e 75 2d 77 69 6e |cursor *|menu-win|
|00000af0| 64 6f 77 2a 20 2a 6d 65 | 6e 75 2d 78 2a 20 2a 6d |dow* *me|nu-x* *m|
|00000b00| 65 6e 75 2d 79 2a 29 29 | 20 28 22 52 65 73 65 74 |enu-y*))| ("Reset|
|00000b10| 20 43 75 72 73 6f 72 22 | 20 73 63 3a 73 65 74 2d | Cursor"| sc:set-|
|00000b20| 63 75 72 73 6f 72 20 6e | 69 6c 29 20 28 22 48 65 |cursor n|il) ("He|
|00000b30| 6c 70 22 20 73 63 3a 3a | 65 64 69 74 2d 69 63 6f |lp" sc::|edit-ico|
|00000b40| 6e 2d 68 65 6c 70 2d 6d | 65 6e 75 29 20 28 22 51 |n-help-m|enu) ("Q|
|00000b50| 75 69 74 22 20 73 63 3a | 3a 71 75 69 74 2d 65 64 |uit" sc:|:quit-ed|
|00000b60| 69 74 29 5d 20 73 63 3a | 3a 6d 65 6e 75 20 63 75 |it)] sc:|:menu cu|
|00000b70| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 5d |rrent-lo|ad-list]|
|00000b80| 20 32 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 | 2).(def|alias 's|
|00000b90| 63 3a 3a 71 75 69 74 2d | 65 64 69 74 20 23 5b 6e |c::quit-|edit #[n|
|00000ba0| 69 6c 20 22 c0 70 21 88 | c1 c2 20 c3 5c 22 87 22 |il ".p!.|.. .\"."|
|00000bb0| 20 5b 62 75 72 79 2d 62 | 75 66 66 65 72 20 73 77 | [bury-b|uffer sw|
|00000bc0| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 20 6f |itch-to-|buffer o|
|00000bd0| 74 68 65 72 2d 62 75 66 | 66 65 72 20 6e 6f 2d 72 |ther-buf|fer no-r|
|00000be0| 65 63 6f 72 64 5d 20 33 | 20 6e 69 6c 20 6e 69 6c |ecord] 3| nil nil|
|00000bf0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 63 |]).(defa|lias 'sc|
|00000c00| 3a 3a 6d 61 6b 65 2d 63 | 75 72 73 6f 72 20 23 5b |::make-c|ursor #[|
|00000c10| 28 73 79 6d 62 6f 6c 29 | 20 22 c0 c1 5c 6e c3 89 |(symbol)| "..\n..|
|00000c20| c4 af 05 21 88 c5 5c 6e | 4a 21 87 22 20 5b 65 76 |...!..\n|J!." [ev|
|00000c30| 61 6c 20 64 65 66 63 75 | 72 73 6f 72 20 73 79 6d |al defcu|rsor sym|
|00000c40| 62 6f 6c 20 30 20 22 22 | 20 73 63 3a 3a 70 61 63 |bol 0 ""| sc::pac|
|00000c50| 6b 2d 62 75 66 66 65 72 | 2d 74 6f 2d 69 63 6f 6e |k-buffer|-to-icon|
|00000c60| 5d 20 36 20 6e 69 6c 20 | 22 53 49 63 6f 6e 20 4e |] 6 nil |"SIcon N|
|00000c70| 61 6d 65 3a 20 22 5d 29 | 0a 28 62 79 74 65 2d 63 |ame: "])|.(byte-c|
|00000c80| 6f 64 65 20 22 c0 11 c1 | 5c 6e 42 12 c1 87 22 20 |ode "...|\nB..." |
|00000c90| 5b 5b 28 22 53 69 6d 70 | 6c 65 20 49 63 6f 6e 20 |[[("Simp|le Icon |
|00000ca0| 45 64 69 74 6f 72 22 29 | 20 28 22 4c 65 66 74 20 |Editor")| ("Left |
|00000cb0| 20 20 20 20 3d 3e 20 43 | 4c 45 41 52 22 29 20 28 |    => C|LEAR") (|
|00000cc0| 22 4d 69 64 64 6c 65 20 | 20 20 3d 3e 20 53 45 54 |"Middle |  => SET|
|00000cd0| 22 29 20 28 22 4c 20 26 | 20 4d 20 20 20 20 3d 3e |") ("L &| M    =>|
|00000ce0| 20 48 4f 54 53 50 4f 54 | 22 29 20 28 22 52 69 67 | HOTSPOT|") ("Rig|
|00000cf0| 68 74 20 20 20 20 3d 3e | 20 4d 45 4e 55 22 29 5d |ht    =>| MENU")]|
|00000d00| 20 73 63 3a 3a 65 64 69 | 74 2d 69 63 6f 6e 2d 68 | sc::edi|t-icon-h|
|00000d10| 65 6c 70 2d 6d 65 6e 75 | 20 63 75 72 72 65 6e 74 |elp-menu| current|
|00000d20| 2d 6c 6f 61 64 2d 6c 69 | 73 74 5d 20 32 29 0a 28 |-load-li|st] 2).(|
|00000d30| 64 65 66 61 6c 69 61 73 | 20 27 73 63 3a 3a 65 64 |defalias| 'sc::ed|
|00000d40| 69 74 2d 69 63 6f 6e 2d | 68 65 6c 70 20 23 5b 6e |it-icon-|help #[n|
|00000d50| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 6d 65 73 73 61 |il "..!.|" [messa|
|00000d60| 67 65 20 22 4c 65 66 74 | 3d 3e 20 43 4c 45 41 52 |ge "Left|=> CLEAR|
|00000d70| 20 20 4d 69 64 64 6c 65 | 3d 3e 20 53 45 54 20 20 |  Middle|=> SET  |
|00000d80| 4c 65 66 74 2b 4d 69 64 | 64 6c 65 3d 3e 20 48 4f |Left+Mid|dle=> HO|
|00000d90| 54 53 50 4f 54 20 20 52 | 69 67 68 74 3d 3e 20 4d |TSPOT  R|ight=> M|
|00000da0| 45 4e 55 22 5d 20 32 5d | 29 0a 28 64 65 66 61 6c |ENU"] 2]|).(defal|
|00000db0| 69 61 73 20 27 73 63 3a | 3a 70 61 63 6b 2d 62 75 |ias 'sc:|:pack-bu|
|00000dc0| 66 66 65 72 2d 74 6f 2d | 63 75 72 73 6f 72 20 23 |ffer-to-|cursor #|
|00000dd0| 5b 6e 69 6c 20 22 c0 09 | 21 88 c2 09 21 87 22 20 |[nil "..|!...!." |
|00000de0| 5b 73 63 3a 3a 70 61 63 | 6b 2d 62 75 66 66 65 72 |[sc::pac|k-buffer|
|00000df0| 2d 74 6f 2d 69 63 6f 6e | 20 2a 65 64 69 74 2d 69 |-to-icon| *edit-i|
|00000e00| 63 6f 6e 2a 20 73 63 3a | 73 65 74 2d 63 75 72 73 |con* sc:|set-curs|
|00000e10| 6f 72 5d 20 32 5d 29 0a | 23 40 35 37 20 50 72 65 |or] 2]).|#@57 Pre|
|00000e20| 73 65 6e 74 73 20 61 20 | 6d 65 6e 75 20 6f 66 20 |sents a |menu of |
|00000e30| 63 75 72 73 6f 72 20 6e | 61 6d 65 73 2c 20 61 6e |cursor n|ames, an|
|00000e40| 64 20 72 65 74 75 72 6e | 73 20 6f 6e 65 20 6f 72 |d return|s one or|
|00000e50| 20 6e 69 6c 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 | nil..(d|efalias |
|00000e60| 27 73 63 3a 3a 6d 65 6e | 75 2d 63 68 6f 6f 73 65 |'sc::men|u-choose|
|00000e70| 2d 63 75 72 73 6f 72 20 | 23 5b 28 77 69 6e 64 6f |-cursor |#[(windo|
|00000e80| 77 20 78 20 79 29 20 22 | 08 c1 1a 89 1b 83 16 00 |w x y) "|........|
|00000e90| c4 0b 40 21 5c 6e 42 12 | 0b 41 89 13 84 08 00 c5 |..@!\nB.|.A......|
|00000ea0| 43 5c 6e 42 12 c6 5c 6e | 21 16 07 c8 0e 09 0e 5c |C\nB..\n|!......\|
|00000eb0| 6e 0e 0b 0e 07 24 2a 87 | 22 20 5b 73 63 3a 3a 63 |n....$*.|" [sc::c|
|00000ec0| 75 72 73 6f 72 73 20 6e | 69 6c 20 69 74 65 6d 73 |ursors n|il items|
|00000ed0| 20 63 75 72 73 20 73 63 | 3a 3a 6d 65 6e 75 2d 69 | curs sc|::menu-i|
|00000ee0| 74 65 6d 2d 66 6f 72 2d | 63 75 72 73 6f 72 20 22 |tem-for-|cursor "|
|00000ef0| 43 68 6f 6f 73 65 20 43 | 75 72 73 6f 72 22 20 6d |Choose C|ursor" m|
|00000f00| 65 6e 75 2d 63 72 65 61 | 74 65 20 6d 65 6e 75 20 |enu-crea|te menu |
|00000f10| 73 75 6e 2d 6d 65 6e 75 | 2d 65 76 61 6c 75 61 74 |sun-menu|-evaluat|
|00000f20| 65 20 77 69 6e 64 6f 77 | 20 78 20 79 5d 20 36 20 |e window| x y] 6 |
|00000f30| 28 23 24 20 2e 20 33 36 | 31 33 29 5d 29 0a 23 40 |(#$ . 36|13)]).#@|
|00000f40| 33 35 20 61 70 70 6c 79 | 20 66 75 6e 63 74 69 6f |35 apply| functio|
|00000f50| 6e 20 74 6f 20 73 65 6c | 65 63 74 65 64 20 63 75 |n to sel|ected cu|
|00000f60| 72 73 6f 72 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |rsor..(d|efalias |
|00000f70| 27 73 63 3a 3a 6d 65 6e | 75 2d 69 74 65 6d 2d 66 |'sc::men|u-item-f|
|00000f80| 6f 72 2d 63 75 72 73 6f | 72 20 23 5b 28 63 75 72 |or-curso|r #[(cur|
|00000f90| 73 6f 72 29 20 22 c0 09 | 21 c2 09 45 87 22 20 5b |sor) "..|!..E." [|
|00000fa0| 73 79 6d 62 6f 6c 2d 6e | 61 6d 65 20 63 75 72 73 |symbol-n|ame curs|
|00000fb0| 6f 72 20 71 75 6f 74 65 | 5d 20 33 20 28 23 24 20 |or quote|] 3 (#$ |
|00000fc0| 2e 20 33 39 30 37 29 5d | 29 0a 28 64 65 66 61 6c |. 3907)]|).(defal|
|00000fd0| 69 61 73 20 27 73 63 3a | 3a 68 6f 74 73 70 6f 74 |ias 'sc:|:hotspot|
|00000fe0| 20 23 5b 28 77 69 6e 64 | 6f 77 20 78 20 79 29 20 | #[(wind|ow x y) |
|00000ff0| 22 08 c1 5c 6e 49 88 08 | c3 5c 66 49 88 c5 20 87 |"..\nI..|.\fI.. .|
|00001000| 22 20 5b 2a 65 64 69 74 | 2d 69 63 6f 6e 2a 20 30 |" [*edit|-icon* 0|
|00001010| 20 78 20 31 20 79 20 73 | 63 3a 3a 67 6f 74 6f 2d | x 1 y s|c::goto-|
|00001020| 68 6f 74 73 70 6f 74 5d | 20 33 5d 29 0a 28 64 65 |hotspot]| 3]).(de|
|00001030| 66 61 6c 69 61 73 20 27 | 73 63 3a 3a 67 6f 74 6f |falias '|sc::goto|
|00001040| 2d 68 6f 74 73 70 6f 74 | 20 23 5b 6e 69 6c 20 22 |-hotspot| #[nil "|
|00001050| c0 09 c2 48 54 21 88 c3 | 09 c4 48 21 87 22 20 5b |...HT!..|..H!." [|
|00001060| 67 6f 74 6f 2d 6c 69 6e | 65 20 2a 65 64 69 74 2d |goto-lin|e *edit-|
|00001070| 69 63 6f 6e 2a 20 31 20 | 6d 6f 76 65 2d 74 6f 2d |icon* 1 |move-to-|
|00001080| 63 6f 6c 75 6d 6e 20 30 | 5d 20 33 5d 29 0a 28 64 |column 0|] 3]).(d|
|00001090| 65 66 61 6c 69 61 73 20 | 27 73 63 3a 3a 64 69 73 |efalias |'sc::dis|
|000010a0| 70 6c 61 79 2d 69 63 6f | 6e 20 23 5b 28 69 63 6f |play-ico|n #[(ico|
|000010b0| 6e 29 20 22 c0 09 21 89 | 12 c3 48 c4 1d 1e 06 0d |n) "..!.|..H.....|
|000010c0| c7 57 83 47 00 0e 06 0d | 48 c8 1e 09 1e 5c 6e 0e |.W.G....|H....\n.|
|000010d0| 09 c4 56 83 34 00 cb 0e | 5c 6e 0e 09 5c 22 63 88 |..V.4...|\n..\"c.|
|000010e0| cc 0e 09 cd 5c 22 89 16 | 09 82 1c 00 2a 0d c3 a6 |....\"..|....*...|
|000010f0| ce 3d 83 40 00 cf 20 88 | 0d 54 89 15 82 5c 66 00 |.=.@.. .|.T...\f.|
|00001100| 2a d0 20 87 22 20 5b 63 | 6f 70 79 2d 73 65 71 75 |*. ." [c|opy-sequ|
|00001110| 65 6e 63 65 20 69 63 6f | 6e 20 2a 65 64 69 74 2d |ence ico|n *edit-|
|00001120| 69 63 6f 6e 2a 20 32 20 | 30 20 69 6e 64 65 78 20 |icon* 2 |0 index |
|00001130| 73 74 72 69 6e 67 20 33 | 32 20 31 32 38 20 62 69 |string 3|2 128 bi|
|00001140| 74 20 63 68 61 72 20 73 | 63 3a 3a 63 68 61 72 2d |t char s|c::char-|
|00001150| 61 74 2d 62 69 74 20 6c | 73 68 20 2d 31 20 31 20 |at-bit l|sh -1 1 |
|00001160| 6e 65 77 6c 69 6e 65 20 | 73 63 3a 3a 67 6f 74 6f |newline |sc::goto|
|00001170| 2d 68 6f 74 73 70 6f 74 | 5d 20 34 5d 29 0a 28 64 |-hotspot|] 4]).(d|
|00001180| 65 66 61 6c 69 61 73 20 | 27 73 63 3a 3a 63 68 61 |efalias |'sc::cha|
|00001190| 72 2d 61 74 2d 62 69 74 | 20 23 5b 28 63 68 61 72 |r-at-bit| #[(char|
|000011a0| 20 62 69 74 29 20 22 c0 | 09 5c 6e 5c 22 c3 56 83 | bit) ".|.\n\".V.|
|000011b0| 0b 00 c4 87 c5 87 22 20 | 5b 6c 6f 67 61 6e 64 20 |......" |[logand |
|000011c0| 63 68 61 72 20 62 69 74 | 20 30 20 22 40 22 20 22 |char bit| 0 "@" "|
|000011d0| 20 22 5d 20 33 5d 29 0a | 23 40 33 37 20 50 61 63 | "] 3]).|#@37 Pac|
|000011e0| 6b 20 31 36 20 78 20 31 | 36 20 66 69 65 6c 64 20 |k 16 x 1|6 field |
|000011f0| 69 6e 74 6f 20 69 63 6f | 6e 20 73 74 72 69 6e 67 |into ico|n string|
|00001200| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 63 3a |..(defal|ias 'sc:|
|00001210| 3a 70 61 63 6b 2d 62 75 | 66 66 65 72 2d 74 6f 2d |:pack-bu|ffer-to-|
|00001220| 69 63 6f 6e 20 23 5b 28 | 69 63 6f 6e 29 20 22 65 |icon #[(|icon) "e|
|00001230| 62 88 08 c1 5c 6e c1 48 | 49 88 08 c3 5c 6e c3 48 |b...\n.H|I...\n.H|
|00001240| 49 88 08 c4 c5 c6 c7 c8 | 23 49 88 c9 20 87 22 20 |I.......|#I.. ." |
|00001250| 5b 69 63 6f 6e 20 30 20 | 2a 65 64 69 74 2d 69 63 |[icon 0 |*edit-ic|
|00001260| 6f 6e 2a 20 31 20 32 20 | 6d 61 70 63 6f 6e 63 61 |on* 1 2 |mapconca|
|00001270| 74 20 73 63 3a 3a 70 61 | 63 6b 2d 6f 6e 65 2d 6c |t sc::pa|ck-one-l|
|00001280| 69 6e 65 20 22 31 32 33 | 34 35 36 37 38 39 30 31 |ine "123|45678901|
|00001290| 32 33 34 35 36 22 20 22 | 22 20 73 63 3a 3a 67 6f |23456" "|" sc::go|
|000012a0| 74 6f 2d 68 6f 74 73 70 | 6f 74 5d 20 36 20 28 23 |to-hotsp|ot] 6 (#|
|000012b0| 24 20 2e 20 34 35 37 33 | 29 5d 29 0a 28 64 65 66 |$ . 4573|)]).(def|
|000012c0| 61 6c 69 61 73 20 27 73 | 63 3a 3a 70 61 63 6b 2d |alias 's|c::pack-|
|000012d0| 6f 6e 65 2d 6c 69 6e 65 | 20 23 5b 28 64 75 6d 6d |one-line| #[(dumm|
|000012e0| 79 29 20 22 c0 19 c0 1a | c0 1b c4 11 c5 c6 c7 c8 |y) "....|........|
|000012f0| 23 12 09 12 c4 11 c5 c6 | c7 c8 23 13 09 13 c9 79 |#.......|..#....y|
|00001300| 88 ca 5c 6e 21 ca 0b 21 | 50 2b 87 22 20 5b 6e 69 |..\n!..!|P+." [ni|
|00001310| 6c 20 63 68 61 72 20 63 | 68 72 31 20 63 68 72 32 |l char c|hr1 chr2|
|00001320| 20 30 20 6d 61 70 63 6f | 6e 63 61 74 20 73 63 3a | 0 mapco|ncat sc:|
|00001330| 3a 70 61 63 6b 2d 6f 6e | 65 2d 63 68 61 72 20 22 |:pack-on|e-char "|
|00001340| 31 32 33 34 35 36 37 38 | 22 20 22 22 20 31 20 63 |12345678|" "" 1 c|
|00001350| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 5d 20 34 |har-to-s|tring] 4|
|00001360| 5d 29 0a 23 40 34 34 20 | 70 61 63 6b 20 66 6f 6c |]).#@44 |pack fol|
|00001370| 6c 6f 77 69 6e 67 20 63 | 68 61 72 20 69 6e 74 6f |lowing c|har into|
|00001380| 20 63 68 61 72 2c 20 75 | 6e 6c 65 73 73 20 65 6f | char, u|nless eo|
|00001390| 6c 70 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |lp..(def|alias 's|
|000013a0| 63 3a 3a 70 61 63 6b 2d | 6f 6e 65 2d 63 68 61 72 |c::pack-|one-char|
|000013b0| 20 23 5b 28 64 75 6d 6d | 79 29 20 22 6c 84 0b 00 | #[(dumm|y) "l...|
|000013c0| c0 67 c1 5c 22 83 13 00 | c2 0b c4 5c 22 13 82 19 |.g.\"...|...\"...|
|000013d0| 00 c2 0b c4 5c 22 54 13 | 6c 3f 85 20 00 c5 75 87 |....\"T.|l?. ..u.|
|000013e0| 22 20 5b 63 68 61 72 2d | 65 71 75 61 6c 20 33 32 |" [char-|equal 32|
|000013f0| 20 6c 73 68 20 63 68 61 | 72 20 31 20 6e 69 6c 5d | lsh cha|r 1 nil]|
|00001400| 20 33 20 28 23 24 20 2e | 20 34 39 36 38 29 5d 29 | 3 (#$ .| 4968)])|
|00001410| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00001420| 20 73 6d 2d 63 75 72 73 | 6f 72 73 29 29 0a       | sm-curs|ors)).  |
+--------+-------------------------+-------------------------+--------+--------+